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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 

iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AN 
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:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY 
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'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 
ie CORPORATION. 


!® DIGITAL ASSUMES NO RESPONSIBIL 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


BOSSES ESET TESTS TTT TTT TTT TTT TTP e eer criti circ ici iii siti t tic it ititiititiiiitz 


14+ 
Facility: DCLDIET, Put a DCL Procedure on a Diet 
Abstract: The purpose of this progres is to reduce the size of a DCL 
command procedure. 


all comments. We also eliminate lines that on 


dollar sign, and reduce all whitespace to a single blank. 
By shipping command procedures in this reduced format, we 


Save space and speed them up. 


Restrictions: The following restrictions must be obeyed in order that this 


program produce a correct command procedure. 


1. Quoted strings must have closing quotation marks. 
not be lexically substituted into or out of a Line. 

3. The DECK and EOD commands may not be abbreviated. 
Environment: Native, User mode. 
Author: Paul C. Anagnostopoulos, Creation Date: 7 September 1982 
Revision History: 

v03-001 pasooo' David Solomon ; an, pat be 

4 x two accvios resulting from reading zero-length records. 
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1984 19:25:20 ETL be°SneSoctoVEs S532 a 


: 1 ! Asbttl "Module Definitions’ : 
3 64 e§ ! Macro Definitions: : 
: 6 65 1 | The following definitions are used to create extensions to the Bliss : 
; ¢ B98 5 bengue e. This makes writing programs easier, and hopefully also : 
: os bee } ! facilitates reading them. : 
; £0 09% : ! We begin with the definition of a boolean data type. ; 
: a . Ore } macro boplean = : 
; € 3 
. 3 i ei; : : 
; 074 1 $ 
3 re 075 1 Literal 3 
PE tas fe? dees Be | 
: 79 0078 1 : ; 
3 a9 sit : Lets define symbolic names for various control characters that we use 3 
; ! a lot. 3 
; § 0081 1 3 
. «© 0082 1 Literal 

; Se OonE : HT = %x'09'; 

: 86 0085 1 ! Now let's define a descriptor data type. This allows us to declare 

: 44 Bobs : ! variables, particularly parameters, as descriptors. 

: 89 0088 1 field descriptor_fields = set 

; 089 1 Len = Cdsc$w_length), 

; Wh 090 1 typ = Cdsc$b_dtypel, 

; F 091 1 cls = Cdsc$b_classi, 

: 4 94 : ae = Cdsc$a_pointer] 

: 95 094 1 , 

; | «696 mM 0095 1 macro descriptor = 

: 24 M Boae : block(8,byte] field(descriptor_fields) 

: 99 0098 1° 

; 100 0099 1 ! Now we need some macros to better deal with strings. We will begin with 

: 12) Bios ; ! three that can be used to generate string constants. 

: 198 _ O08 1 macro mare sap ee = 

: ee i] + : uplit byte(string) 

3 M 198 1 ctext(string) = 

: +4 i ! $ ' uplit byte(Zascic string) 

; 109 m 0108 1 dtext(string) = 

: 119 i] 4 ' 2, Zascid string 

; 118 ne a 

2. 3 6 1 ! Now we will define a macro that generates a buffer with accompanying 

3. (116 115. 1! descriptor. The user can specify the name and length of the buffer. 

: 132 We ' ! This macro can appear in global or own declarations. 

: 119 “ 116 1 macro dbuffer(name Length) = 

s 198 mO117 1 name: blockl8+ ength, byte] field(descriptor_fields) preset( 
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! Now we are going to define some constructs that let us do common sorts 
: of operations more elegantly. They make things more meaningful and 
! are also faster to write. 
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11 len = Length, 

18 one 

1 cls = Q, 

: str = name + 8 

: qt; 

1 ! We also want a macro which helps us fill in a descriptor v= theagtage 3 

} ! It lets us specify the descriptor, and the Length and address to fill in. 

1 macro build.d tcrjptor (name. Length address) = 

1 (name(len = length; 

1 name tye = Q; 

1 namelcls = 0; 

: name(ptr = address; ) 

1 

1 
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8 
iB ! Begin with two macros to increment and decrement a variable. 
41 macro increment(variable) = 
¢g (variable = .variable + 1) 
44 decrement(variable) = 
45 (variable = .variable - 1) 
eb 
48 ! Define a macro that can check a status. If not successful, then it will 
$3 ! signal the remaining arguments. 
51 macro check(status) = 
26 (if not status then 
a7 . signal (Zremaining);) 


- 
i= 


g 


VFN —OOONOu C 


PIAA 


pw fw law lew lw lala lal ale alelalelolololala) 


SO ts a ss 4s os _» 4s 4 2 ss ss 


vuvvUU 


SARE ILSSSIS ARN SOSH wa Arvo ooo 


See 


o 
vvuv 


SOOOOOOOOCOOSOOOSOOOCCOCOCOCOOOOOOSOOOOOOOOOOOOO 


LESRESLSE 
vuvuv 


© 


a ed ed tk td od dd = sd dd dd 
oo 


et a a a a a a as 2 ss Ws a a 


SSRIS AF WH OOO OAL DODO GONE UN = OD NOU UII O Doo wo 


-—o 


aN2S3 


vuvvU 


7 
cs 
. 
° 
7 
° 
. 
oe 
. 
o 
. 
a 
. 
& 
. 
. 
. 
° 
° 
o 
. 
° 
. 
7 
o 
. 
e 
. 
* 
. 
. 
o 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
. 
. 
. 
. 
. 
. 
° 
7 
eo 
. 
. 
o 
. 
° 
*. 
. 
2 
. 
os 
. 
. 
. 
a 
. 
+o 
. 
. 
. 
eo 
. 
e 
7 
£ 
2 
° 
. 
o 
. 
° 
. 
€ 
. 
° 
. 
° 
. 
o 
. 
a 
° 
& 
. 
2 
. 
° 
. 
o 
. 
o 
. 
° 
. 
° 
. 
° 
a 


3s 
3 
i 
i 


—_ 


H 6 
ond BAe Decay scene 1e-Sep-19be 19:28:20 


! Table of Contents: 


forward 4 9) ed 
dcldiet$main: novalue, 
dcldiet$reduce: nevelue. 
dcldiet$scrunch_Line: novalue 
dcldiet$skip_whTtespace: novalue; 


! External References: 


external foytine 
cli$get_value: addressing_mode(general); 


! Shared Messages: 


Sshr_msgdef(dcldiet, 3, local, 
(closein, warning) 
(closeout, warning), 
(openin, severe) 
(openout, severe), 
(readerr, error) 
(writeerr, errors); 


Own Variables: 


s . 
UTIL352.SRCJDCLDIET.B 


i We need a set of RMS control blocks to open and read the input file. 


own 
dbuffer(input_rsa,nam$c_maxrss), 


input_nam: Snam(esa=input_esa+8, 
ess=nam$c_maxrss, 
rsa=input_rsat8, 
rss=nam$c_maxrss), 


input_fab: Sfab(dnm=".com', 
fac=get, 
nam=input_nam, 
shr=get), 


input_ubf: block(1024,byte], 
input_rab: Srab(fab=input_fab, 
mbc=4, 
abf=2, 
rac= 


C seq. 
ubf=input_ubf, 
usz=1024); 


! We need a set of RMS control blocks to create the output file. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
: dbuffer(input_esa,nam$c_maxrss), 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 own 
' dbuf fer (output_esa,nam$c_maxrss), 
1 output_nam: Snam(rif=input_nam, 
1 esa=output_esat8, 
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ess=nam$c_maxrss), 


output_fab: Stabs Tecseut. 


mre=t086, 


nam=output_ nam, 
org=seq, 
rat=cr, 
rfm=var), 


output_ubf: block(1024,bytel], 
output_rab: Srab(fab=output_fab, 
moc=4, 
mbf=2, 
rac=seq); 


“Sep-19 
14-Sep-19 


Be 19:28:30 


ty 


X-11 Bliss-32 v4.0-74 
TIL32. SRC Decbiei esos 


IMR 


RIPDPIPIPDPONININIPNIPUNIPUNINININININIA 
San oa 
OPW — 3o-~ ue SSS 


PAEAPEXPMNMAAMA NN & EEE EEE 
WN" O DONOVEW “OO OONOUS wo 


Sar 


T 
T 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


; ; oye a DCL Procedure on a Diet 1b-se sen 19% 9: iB: 33 AX-1 =32 V4.0-742 Page 7 


N = Main Routine 


MA UTIL 2 the pecole 05 53° 1 (4) 
ees bttl "DCLDIETSMAIN = Main Routine’ 
i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


-Sep-1 


Functional 0 Description: 
s is the main routine for the DCLDIET command. It parses the 
command Line and then opens up the input fil 


Formal Parameters: 
n 


Returned Value: 
none 


Notes: 
none 


GLOBAL ROUTINE dcldiet$Smain: novalue = BEGIN 


local 
status: long, 
work dsc: descriptor; 


! Begin by obtaining the name of the input file and opening it. 


status = cli$get_value(dtext('P1'),input_esa); 
input_fab(fab$l_fna] = .input_esa pers 

input_fabCfab$b_fns] = ; input. esa 

status = Sopen(fab= nput_ fa 

dcldiet$scrunch_Line(input_e 

check(.status, dcldiet$ rapaNtn i - input. esa,.status,.input_fab(fab$l_stv]); 
status = $connect(rab=input 

check(.status, dcldiet$  ppenin, i input_esa,.status,.input_rabCrab$l_stvJ); 


!' Now we can open the output file. The optional /OUTPUT qualifier will 
i tell us the name of the output file. 


output_fab{fab$l_fna -output_esa 
avs. ~fabl fab$b_fns -output_esa 
tatus = ecreate tet fabroutput. taby; 
dc ldietSscrunch. Line( output - esa) 
check(.status, dcldiet gepenews { output. esa,.status,.output_fab(fab$l_stv]); 
status = $connect(rab=output rab): 
check(.status, dcldiet$ vopentut, 1; output_ esa,.status,.output_rabCrab$l_stvJ); 


status = att et ~Yhad" =cut. OUTPUT") : yep tee 
r 


! Call a routine to process the input command procedure and produce the output. 
dcldiet$reduce(); 

! Close the input and output files. 

status = $close(fab=input_fab); 

check(.status, Hi ieiet sero teiite -1,input_esa,.status,.input_fab(fab$l_stv]); 


status = $close(f te =output 
check(.status, dcldiet “closeout, 1,output_esa,.status,.output_fablfab$l_stv]); 


al 
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- IDENT 

«PSECT SPLITS,NOWRT ,NOEXE ,2 
6p F 63 0000 P.AAA: .ASCII +6en} : 
0 00 351 83 P.AAC: .ASCII \P \<93<0> 3 
4 88 8 P.AAB: .LON 17694722 : 
0000000° 0000 «ADDRESS P.AAC ; 
00 00 54 55 50 54 4F id P.AAE: .ASCII SOUTEYT )<0><0> : 
434543 0018 P.AAD: .LONG 17694726 ; 
0000000" 0001C eADDRESS P.AAE : 


.PSECT $OWNS,NOEXE,2 
OOFF 00000 INPUT_ESA: 


~ WORD 55 3 
00 00 00002 “BYTE 0 ; 
00000000" 00004 -ADDRESS INPUT _ESA+8 : 
0008 -BLKB 255 
0107 -BLKB 

OOFF 00108 INPUT_RSA: 
~ WORD 55 3 
00 00 0010 -BYTE 0 ; 
00000000" 0010¢ “ADDRESS INPUT _RSA+8 : 

00110 -BLKB. 255 
0020F 

02 00210 INPUT_NAM: 
BYTE § 3 
60 00211 “BYTE 96 ; 
FF 00 ig “BYTE =1 ; 
00 0021 “BYTE 0 F 
00000000" 0214 -ADDRESS INPUT_RSA+8 ; 
8 0 18 BYTE 0 3 
0 0021 <BYTE 0 ; 
FF OO2IA BYTE -=1 5 
0 1B “BYTE 0 ; 
9000 000' 1 ADDRESS _INPUT_ESA+8 ; 
0000 3 LONG 3 
r 4 ~ WORD 3 
# » WORD 3 
# A » WORD : 
9000 40 -LONG ; 
44 LONG ; 
8 -BYT ; 
4 “BYT : 
4A BYTE ; 
48 -BYTE ; 
4C BYTE ; 
40 BYTE ; 
’ 4 “BYTE 02) F 
000000 5 LONG ; 


-—v 
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-PSECT SCODES$,NOWRT,2 
00FC 00000 .ENTRY DCLDIETSMAIN, Save R2,R3,R4,R5,R6,R7 3 02465 
7 0 6 00 9% 08 MOVAB SYSS$CLOSE ; 
$ G E MOVAB SYSS$CONNECT, R6 : 
0 G E 019 MOVAB CLISGET VALUE, RS : 
24 G E 0001 MOVAB LIBSSIGNAL, R4 F 
3 000' CF H O018 MOV INPUT_ESA, R3 : 
SE 8 C2 000 SUBL 8, SP : 
BD 0 6 PUSHL R + 0254 
0000' CF 9F 000 PUSHAB P.AAB : 
$3 FB 02C CALLS #3, CLISGET_VALUE : 
DO O002F MOVL RO, STATUS : 
029¢ C¢ 04 A p6 00 : MOVL § INPUT_ESA+4, INPUT FAB S44 : 0255 
O2a4 C 63 90 000 MOVB —s«INPUTESA, INPUT_FAB+52 : 0256 
0270 C3 9F 0003D PUSHAB INPUT : 025 
000000006 99 1 FB 00041 CALLS #1, SYSSOPEN : 
9 D 00 48 MOVL RO, STATUS ; 
53 DD 00048 PUSHL R : 0258 
0000v CF 01 FB 004D CALLS #1, DCLDIJETSSCRUNCH_LINE : 
1 : E 003¢ BLBS STATUS, 1$ : 0259 
027¢ c DD 0005 PUSHL INPUT FAB+12 : 
¢ DD 00059 PUSHL STATUS 3 
53 DD 00058 PUSHL ; 
07 DD 0005p PUSHL #1 : 
0003109¢ 8F DD 0005F PUSHL #200860 ; 
6 05 FB 00065 CALLS #5, LIBSSIGNAL : 
06CO C3 9F 00068 1$: PUSHAB | : 0260 
66 1 FB 9006¢ CALLS #1, SYSS$CONNECT ; 
5 0 DO 0006F MOVL RO, STATUS : 
1 ¢ £8 90078 BLBS STATUS, 2$ > 0261 
06cc C3 DD 0007 PUSHL INPUT RAB+12 ; 
2§ DD ainda PUSHL STATUS 3 
53 DD 00078 PUSHL ; 
01 DD 0007D PUSHL #1 : 
0003109C 8F DD 0007F PUSHL #200860 : 
64 05 B 00085 CALLS #5, LIBSSIGNAL : 
0704 C3 9F 00088 28: PUSHAB OUTPUT_ESA : 0266 
0000" CF 9F 0008 PUSHAB P.AAD ; 
$5 F 9090 CALLS 3, CLISGET_VALUE ; 
DO 0009 MOVL STATUS ; 
0398 ~=¢ 0708 C 0096 MOVL § OUTPUT_ESA+4, OUTPUT_FAB+44 : 0267 
O8A0 CC 704 ¢3 90 9090 MOVE = QUTPUT“ESA, OUTPUT_FAB+52 : 9268 
86C F OO00A4 PUSHAB OUTPUT~FAB + 0269 
000000006 99 } FB OOA8 CALLS #1, SYSSCREATE 3 
9 p OAF MOVL RO, STATUS ; 
0704 F 0008 PUSHAB OUTPUT _ESA : 0270 
0000v CF 1 F itt CALLS #1 BECO | ETSSCRUNCH_LINE 3 
15 E8 00088 LBS = STATUS, > 0271 
0878 f DD 0008 PUSHL OUTPUT. FAB+12 : 
D 000C PUSHL STATUS ; 
0704 C3 9F 000C OUTPUT_ESA F 
1 od 000¢8 PUSHL #1 ; 
000310A4 8F DD OOOCA SHL #200868 ; 
64 ; FB 09 CALLS #5, LIBSSIGNAL : 
Ocac C3 9F 000D3 38 PUSHAB OUfPUT_RAB ; 0272 


7 
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1 F p7 CALLS #1, SYSSCONNECT ; 

EF ; 09 DA MOVL RO, STATU : 
1 E bp BLBS STATUS, 4 : 0273 

occa ‘ DD OOOE PUSHL OUTPUT_RAB+12 : 

BD E4 PUSHL STATUS ; 

0704 F OO0E6 PUSHAB OUTPUT_ESA : 

1 DD OOOEA PUSHL &# : 

000310A4 8F DD OOOE PUSHL #200868 ; 

64 5 FB OOOF CALLS #5, LIBSSIGNAL : 
0000v CF - FB OF 4$: CALLS #0, DCLDIETSREDUCE : 0277 
0270 9F OOOFA PUSHAB INPUT FAB > 0281 

67 8. OFF CALLS #1, SYSSCLOSE ; 

: D MOV RO STATUS : 
1 E8 001 BLBS STATUS, 5$ : 0282 

027¢ DD ot 7 PUSHL INPUT _FAB+12 : 

DD 001 PUSHL STATUS : 

DD 90100 PUSHL R3 : 

1 DD 0010F PUSHL #1 : 

00031050 8F DD 00111 PUSHL #200784 ; 

3 FB 00117 CALLS & LIBSSIGNAL é 
086C C3 OF OO1IA 5S: PUSHAB OUTPUT : 0283 

o4 FB OO11E CALLS #1, SYSSCLOSE ; 

5 0 dO 00121 MOVL RO, STATUS : 
1 5¢ E8 01 4 BLBS STATUS, 6$ + 0284 

0878 C3 DD 00127 PUSHL OUTPUT. FAB+12 : 

32 DD 00128 PUSHL STATUS ; 

0704 C3 9F 00120 PUSHAB OUTPUT_ESA ; 

01 DD 00131 PUSHL # : 

00031058 8F DD 00133 PUSHL #200792 ; 

64 05 FB 00139 CALLS #5, LIBSSIGNAL é 
04 0013C 68: RET : 0287 


; Routine Size: 317 bytes, Routine Base: S$CODE$ + 0000 


mm 


T = Put_a DCL Procedure on a Diet 1 
TSREDUCE = Reduce a Command Procedure 1 
d 


Rsbttl *DCLDIETSREDUCE - Reduce a Command Procedure’ 


Col 


7 
- - se J s = - = 
G-Sep-1984 19:25:20 LOTTLS2°sneSoccoletcasest 


v0o=000 


i Functional Description: 


ono 
+ 
OOOCOCeoCoo VvWg 


WAN AIA MII RIPPIN NINININIDN 4 2 SS | MQOODOOOCOCOCOOOVOOOOOOOOM@Oo rem 


FAN 0 ODNO UNE WIN O OOD NA UE WIN $ O OONOU EWN SO OONOAOUS WNC ODNOUSWH—O0OO COCO 


C 
C 
5 : his procedure is responsible for reducing the size of a command 
9 ! rocedure by eliminating comments and compressing any whitespace. 
44 } e read the entire input file and generate a new output file. 
99 i Formal Parameters: 
00 ! 
01 ! 
0 ' Returned Value: 
0 none 
i Notes: 
none 
H GLOBAL ROUTINE dcldiet$reduce : novalue = BEGIN 
3 


local 
status: long, 
line_dsc: descriptor, 
work dsc: descriptor, 
continuation_line: boolean, 
within_deck: boolean, 
dcl_command: boolean; 


! We will reduce the command procedure by reading each Line, processing it, 
! and perhaps writing a new Line into the output file. 
continuation_line = within_deck = false; 
while true do ( 
! Begin by getting the next Line. We're done on end-of-file. 
status = $get(rab=input_rab); 


if .status eqlu rms$_eof then exitloop; 
check(.status, dcldiet$_readerr,1,input_esa,.status,.input_rabCrab$l_stv]); 


WAAL AAI RORORIPUNNONUPUN 2 SS Ss OOOO 
SERFS SONORAN SOWNAME WOODS NRAR 


WANNA A AAA AAI AIAN AA AW AIANINWAW 


! Set up the output RAB for writing the Line. Also set up a working 
! descriptor in case the Line must be modified. 


AAAI AIANIANIAIN AAA NAAN AWWW 


output _rabbrabév_rsz = .input_rab rabév_rsad: 


WAIN ANI WINN WIN WIN WIINWNWINIIIINOonononononononononononononony 3 3 a 


SOOOOOOCOOCOOOSCOOOCOSCOOOOSOSOOSSOSOOSCSOOOOOOOCOOCOOOCOOOOOOOCOO 


38 cutout rablrab$l_rbf] = .input_rab renee rbf 

ip build descriptor work_dsc,.input_rabCrabSw_rszJ,.input_rabCrab$l_rbf)); 
1 ! Update the work descriptor to skip initial whitespace. 

“§ dcldiet$skip_whitespace(work_dsc); 
5 4 ' Now we have to determine whether this is a DCL commmand Line 

r ! or a data Line. 

48 4 dcl_command = 


sss 


= 


WN —ODOONOUFS WO” 


OOCCWWOOOCOOCOCOOCOCOCOCOCO Vg 


WAIHI AWWW iw 


COONS NN 


, 
8 
5 
8 
5 


OOOCCOCOCOCOCOCOCOOCOCSCOCOOCOOCOCOoOO: 
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CE = Reduce a tonnend Procedure ~300n 138% 9g: 38: 33 UTIL 2°sRe Devle i’ 32, 


78 net swithin deck and .work_dscClen] gtru 0 
' _ chercher( work declptrd) eqlu '$") 


Sotee) 
or .continuation_Line; 


! If it's a DCL command Line, we have to scrunch it. Skip to the 
} beginning of the verb, call the scrunching routine, and then put 
! back a dollar sign if necessary. 
if .dcl afemment then ( 
not .continuation_line then_( 
decrement (work_dsc{len]); 
increment (work_dscCptrJ); 


); 
dcldiet$skip_ watrvepece (york, gee); 
dcldiet$scrunch_line(work_dsc); 
if not .continuation_Line then ( 
increment (work_dsc(len]) 
de rement (work _ _dsclptrd) 
ch$wchar('$', .work_dsc 4 ans 


); 


! Now we want to write the Line into the output file. Don't bother 
! if it's a DCL command Line with only a dollar sign. 


if .work_dscClen) gtru 1 or 
-continuation_Line or 
not .dcl_command then ( 
Tdcl_command then ( 
“output_rab rabSw. rsz) = .work aetna 
output_rabCrab$l“rbf] = .work_dsc(p 


stetue = $put(rab=output_rab); 
; check(.status, dcldiet$ _uriteerr, 1,output_esa,.status,.output_rabCrab$l_stv]); 


! Next we determine the state of our two control flags. 
i The continuation flag is set if we just processed a DCL command 
i Line and it has a hyphen at the end. 


cont taues jen. Line = 
Sal f Tdcl_command 


" Cch$rchar(. work_dsc(ptrJ+.work_dscClenJ-1) eqlu ‘-") 
gise false 


! The setting of the deck S tle depends ¥ on whether or not we jus 

i procseess 9 Pps command so, the flag is set if we had a DECK 

i gonad. not, the tiag is left alone unless we had an EOD command 
i while na pen in which case it is reset. 


if .dcl_command then 
“within “deck = ,work_dscClen] eqlu 5 and 


neeemenenineentty 


F . 
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; 4 4, ch$rchar(.work_dsc(ptr eqlu ‘'$° and 
3 209 4 : (ch$rchar(.work_dsclptr ar and ix'df') salu *D’ and 
; 408 404 (ch$rchar(.work~ _dsclptr *$) and ix'df') eqlu 'E’ and 
; 409 405 (ch$rchar(.work_dsclptrj+3) and %x'df') eqlu 'C’ and 
; 410 4 $ eet work_dscL(ptrJ+4) and %x'df") eqlu ‘Kk’ 
: 411 4 else if .within_deck t 
: t1¢ 408 4 if c¢ hSrthar(. — dscCptrj]) eqlu ‘$' then ( 
: 41 409 4 ecrement (work dsc Len di 
3 416 410 4 ncrement (work gGecle 
3 415 411 & a gg LE w Ritespace(uork dsc); 
§ 218 tig 4 if .work_dscClen we 
; «(41 eI 4 (chérehar(. work_asc(Cptr] ) and ex et} eqlu ‘E’ and 
; 418 414 & (ch$rchar(.work_dsc(ptrj+1) and a*, 93.3 ohu *O" and 
: 419 0415 4 kchrcber) work _dscCptrJ+2) and %x'df') eqlu 'D' then 
: 420 Oaig 4 within_deck = false; 
; 421 Be 4 
3; 4 ; 418 3 ); 
3; 4 0419 FE 
; 4264 0420 
; $82 0421 return; 
: 426 0422 1 END; 
-EXTRN SYSS$GET, SYSS$PUT 
OFFC 00000 ~ENTRY peer E TeeEPUce. Save R2,R3,R4,R5,R6,R7,R8,- ; 0306 
58 0000V CF 9E 0000 MOVAB DCLDIETSSKIP WHITESPACE, R11 3 
5A 00000000G 00 9E 0000 MOVAB’ LIBS$S ; 
59 0000' CF H 90008 MOVAB  INPUT_RAB+34, R9 F 
5E 10 C2 0001 SUBL2 #16, SP 3 
54 94 potg CLRB WITHIN_DECK : 0320 
53 94 0001 CLRB CONTINOATION_LINE 3 
DE AJ 9F OQOOIA 1$: PUSHAB INPUT_RAB 3; 0326 
000000006 00 01 FB 00010 CALLS #1, SYSSGET ; 
55 50 00 OR 4 MOVL Tus 3 
0001827A BF 55 01 00027 CMPL status, #98938 : 0327 
01 12 000 F BNEQ : 
04 000 RET 3 
14 55 €8 00031 2$: BLBS STATUS ; 0328 
EA Ad DD 00 PUSHL INPUT Rabs12 ; 
55 DD 00037 PUSHL ATU 3 
FOIE 9 OF 8 9 PUSHAB INPUT_ESA ; 
1 OD D PUSHL 3 
00031082 F DD 3 F PUSHL pag : 
A 5 Ff rf CALLS # +4 ra : 
O5F¢ C9 69 8B 04 3$: MOV INPUT mitt 4, OUTPUT _RAB+34 : 03 3 
602 C9 06 A9 3 38 OVL INPUT “RAB+40, UTPUT-RAS+40 3; 0334 
6E 69 5 0 MOVZWL INPUT— _RAB+34, gORK DSC ; 0355 
04 AE 06 Ad D 6 OVL INPUT “RAB+40, WORK “DSC+4 3 
. 0D B PUSHL SP ; 0339 
$8 F CALLS #1 PEL RIE TSSE]P UNI TESPACE 3 
1 a 3 BLBS WITHIN 4 > 0345 
c : TSTW  WORK_DSC ; 
6 6 BEQL 4$ : 
D4 0006 CLRL RO ; 0347 
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24 04 9 9 CMPB QYORKDSC+4, #36 : 
1 D BNEQ 3 
: F INCL R : 
BRA 5 : 
p, 73 4$: CLRL_ RO : 345 
5 9 00075 5$: BISB3 CONTINUATION -L INE. RO, DCL_COMMAND + 0350 
: : E9 0007 BLBC —_dOCL ; 336 
Eg 7C BLBS CONTINUATION. LINE, 6$ + 035 
6— 8 7F DECW WORK : 0358 
04 AE D6 1 INCL WORK= “DSC +4 : 0359 
3 DD 6$: PUSHL ; 0361 
68 FB CALLS i. DCLDIETSSKIP_WHITESPACE ; 
E dD PUSHL p’ 3; 0362 
0000v CF } FB CALLS #1, PPCLOLETSSCRUNCH INE : 
09 E BLBS § CONTINUATION_LINE, 7 + 0363 
bE BG 9 INCW WORK at : 0364 
04 AE p 9 DECL WORK “DSC +4 + 0365 
04 BE 24 90 00098 MOVE #36, OS ORK DSC+4 ; 0366 
01 Bi 0009C 7$: CMPW  WORK_DSC, #1 : 037 
1A 0009F BGTRU 8$ : 
93 E8 000A1 BLBS CONTINUATION_L INE. 8$ + 0374 
£ 56 ES OOAS BLBS § DCL_COMMAND : 0375 
0B 56 E9 OOOA7 8S: BLBC DCL COMMAND, 9 : 326 
OSFc 8 ¢9 6E BO OOOAA MOVW  WORR_DSC, OUTPUT _RAB+34 : 037 
0602 9 04 aE DO OOOAF MOVL _- WORK~DSC 44, OUTPOT_RAB+40 : 0378 
OSDA 9F 000B5 9S: PUSHAB OUTPOT_R : 0380 
000000006 00 1 FB 0008 CALLS #1, SYSSPUT : 
55 g dO 000¢ MOVL RO, STATUS ; 
14 55 €8 000C BLBS STATUS, 108 + 0381 
0566 C9 DD 00066 PUSHL OUT 12 ; 
55 DD OOOCA PUSHL STAT ; 
22 ad 9F 000CC PUSHAB QUTPUT_ESA : 
or DD OOOCF PUSHL # ; 
000310D2 8F DD 00001 PUSHL #200 ; 
6A 05 FB 007 CALLS #5, LIBSSIGNAL ; 
13 b : OODA 10$: LBC o0¢L > 0389 
50 6E ¢ OODD 11$:  MOVZ2WL WORR_DSC, RO : 0391 
50 04 AE C £0 ADDL2 WORK"DSC+4, RO ; 
51 D4 OO0E4 CLRL R11 : 
2D FF AO 91 O00E6 CMPB 3s =1(RO), #45 ; 
6 12 OOOEA BNEQ 13$ ; 
1 06 OO0EC INCL = RV : 
é 11 000€ BRB 13$ : 
ps F 138 CLRL sR : 0389 
53 1 9 F2 13$ MOVE = RI, CONT INUAT JON LINE : 
0 é : F BLBS DCL COMMAND , 4$ + 0400 
00A4 31 O00F BRw 1 : 
50 D4 OOOFB 148 CLRL RO. > 0401 
05 81 F CMP K_DSC, #5 ; 
06 PNEL 
p 15$: CLRL > 0402 
24 04 1 CMPB avORK.DSC+6, #36 : 
1 A BNEQ 3 
D C INCL =R ; 
51 D 168: MC RO, RI ; 
2 1 CA BICL2 Ri. R2 ; 


Bi 
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4 0 00114 MOV WORK_DSC+4, RO : 0403 
3 if Ni BR 118 nOvzgL past: RO : 
FFFFFF2O 8F CA 0011 BICLe #226, R : 
1 04 001 ; CLAL F 
00000044 8F b 1 CMPL ny #68 : NV 
10C BNeG)~=—s«7$ : COL 
D6 001 INCL RI : DEV 
i § Pe Boras 8s | BCOM, Ree RF ; DIS 
4 AE 00 001 MOVL vORK DSC+4, RO + 0404 oe! 
; AO 9A 0013A MOV ZBL (ROT, : O¢ 
FFFFFF F CA 001 BICL #-224 : L 
D4 001 ; eg : LIB 
00000045 BF : 14 cmPL R P #69 Lis 
D 1 INCL R : OR. 
i! nt ace a | er 
4 AE DO 001 OVL WORK DSC+4, RO + 0405 SEC 
0 3 Aad 9a 0015¢ MOVZBL 3(ROJ, RO : 
OFFFFFF20 8F CA 160 BICL2 #224, R ; 
1 D4 0016 CLRL. = R1 : 
00000043 = 8F D1 169 CmPL RO, #67 : 
; 0g 0173 INCL = R17. : 
57 é D O17 19$:  MCOM Re. R7 ; 
51 5? CA 00177 BICL2 R?. R1 : 
0 4 AE 00 0017A MOVL WORK DSC+4, RO + 0406 
36 4 AO 9A 0017 MOVZBL 4(ROJ, 3 
50 FFFFFF20 8F CA O89 BICL2 #-224. : 
3 D4 001 CLRL R 3 
00000048 =F Dt a8 cmPL R P #75 
32 oe Opie ce 7 
54 3§ i bs 0198 Bice RB. RS WITHIN_DECK ; sar 
B 4 £9 19F 21$:  BLBC WITHIN DECK, . 225 + 0407 
4 04 8 1 OO1A CMPB = @WORK_BSC+4, #36 ; 0408 
6 45 i tier 238 K_DSC + 0409 
«ON Tari ARE, ggctscu af 
68 ai Fe 1AF CALLS #", DCLDIET$SKIP_WHITESPACE : : 
Bike Gary ua. sts Bes 
0 94 —E 9A 0018 MOV ZBL RK _DSC+4, RO > 0413 
00000045 s — Q of 1¢3 eer 
1¢ BNEG : 
“oa 06 1¢B MOVL WORK _DSC+4, RO > 0414 
6 1 AO 9A OOICE MOV ZBL eal RO ; 
oooooose bP FPSO BF ee MOR Past RON“ s 
a a ee os 
8 83 Ab Bh 1€ MOVZBL 2(ROJ, RO ; 
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RO, # 


48 
94 HIN_DECK 
1 


Fe 
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: ; ! Rsbttl "DCLDIETSSCRUNCH_LINE = Remove Comments and Squeeze Whitespace’ 
405 1! Funct ional Description: 
8 1! This procedure is called to scrunch a Line in the command procedure. 
1! It removes any comments from the Line. if also squeezes any 
8 : : whitespace down to a single blank. Trailing whitespace is eliminated. 
4 9 1 ' Formal Parameters: 
& 1; Line_dsc Descriptor of Line. Line is scrunched by rearranging 
i } : Line buffer and updating descriptor. 
434 1 ' Returned Value: 
r 5 ! none 
$ 1 i Notes: 
81! none 
GP Be 
41 1 
Beeg 1 GLOBAL ROUTINE dcldiet$scrunch_Line(line_dsc: ref descriptor) 
Bee? : novalue = BEGIN 
ges local 
r¢ scan_dsc: descriptor, 
rh char: byte; 
49 
bees ! If the Line is null, forget it. 
$26 if .line_dscClen] eqlu 0 then 
$37 return; 
Be 22 ' Begin by copying the Line descriptor so we can scan the line. Then reset 
+28 ! the Length of the descriptor to zero so we can rebuild the Line. 
a438 build_de pr igtertecen_dec..l ine decltend,.Line_declptr3); 
R22 Line_dscClen] = 0; 
red ! Now we will sit in a loop in order to find the first quotation mark 
6¢ ! or exclamation point in the Line. As we go, we'll compress any whitespace 
ret ! down to a single blank. 
65 while .scan_dscClen] gtru 0 do ( 
£66 char = ch$rchar(.scan dscCptr)); 
if .char eqlu ‘' or .char_eqtu ‘!* then exitloop; 
6 ecrement (scan_dsc tend) 
8 ncrement (scan dsc ptrJ); 
0 4 if .char eglu or .char ealy HT then ( 
71 4 ch$wchar(* °,. Line _dsc(ptr]+.line_dscClen]); 
f 4 oa dcldiet$skip_whitespace(scan_dsc); 
else 
74 ch$wchar(.char,.line_dsc(ptrj]+.line_dscClen]); 
76 ' increment (Line_dsc lend); 
7 o 
4 ! It we found a quotation mark, we have some more work to do. 


aef 


= 
SEUs aR ONTSEs 


PVD IV IV IV IVSUSVSVSUSVSVSVSV SUSI 


et ot 
COONOULSWH—O 


Ke? 
a DCL Procedure on a Diet AX-11 BLi $527 V¥4.0-742 Pp 1 
TSSCRUNCH.LINE © Recire Combente and Sque | ~3e07 1382 95:38:33 PONTE .Pk 89532, ¥8505 282, soe 3} 


if .char eqlu ‘' then ( 


on 
cc 
ogo 
ee 


' We seve to be coretul with the rest of the ine, because the 
i quotation rules in DCL are haphazard. Begin by moving down 
i the rest of the Line so it's adjacent to the part we compressed. 


ch$move(,scan_dscClen],. n-gscCptrd. - line glgstorrse.tne_secltond), 
line dsctlenJ~= .Line “ase ten + .scan_dscllén 
' 


(09 C0 C9 CD CO. CD CD CD ODOD 


' If there is an exclamation +e at sve end of the Line, not 
! followed by a quotation mark, then it's a comment. 


can_dsc(ptr] = line adscCptrd + s line. scClen] = 1; 
while spgen passe ptr] ‘§ > eli ie -dscl ptr ang 
ch$rchar(.scan ptr 
chrchar (econ prasctptr ) eqlu on ~o 
Line_dscLl scan _dscCptr 5 a _dscCptri; 
, exitloop; 
, decrement (scan_dsc(ptr]); 
); 


! If, after all on work, we ended up with trailing whitespace, then 
: get rid of it 


scan_dsc(ptr] = .line_dsc(ptr] + Line gqecl lend - 1; 
while .scan_dscCptr] geqa Line _dscl ptr 
(ch$rchar(.scan_ adscf len “eqlu ' ' or ch$rchar(.scan_dscCptr]) eqlu HT) do ( 


VMIFWN OO OONOU SAR OOONOUE WO 


len]); 
ptrJ); 


decrement (Line_dsc 
, decrement (scan dsc 


ie 


| 


—t mt mt mt BE DOODOOOCOCOCOOOVOOVOOOOOO 
FRUN=OSe US 4 & 


COOOOCOOoOOOCOoOoOCCooOoOO 


PAAAAAMAM MAMI 


00FC 00000 ENTRY DCLDIETSSCRUNCH_LINE, Save R2,R3,R4,R5,R6,- ; 0442 
SE 08 ¢ a SUBL2 #8, SP : 
56 04 Ac D 00 MOVL  LINE_DSC, R6 + 0452 
66 TSTW (RO) F 
01 BNEQ 1$ 3 
ie B00p RET 3 
66 66 3 Of 1$: MOVZWL (R6), SCAN_DSC > 0458 
04 ag . MOVAB 4(R65, ; 
04 AE 67 D 13 VL (R7), SCAN_DSC+4 ; 
66 B84 0001 CLRW = (RO) > 0459 
gE : 1B 28: TSTW  SCAN_DSC > 0465 
on BE iP Bevh BECAN. DSCO4. CHAR : 04 
35 3 CMPB MARY ac : bee$ 
1 BEQL ; 
21 9 CMPB = CHAR, -#33 ; 
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a 
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vivee th DCLDIETSSCRUNCH_LINE Remove Comments and Sque Jaqsene1984 $Siceic0 | LOtreS2 ede sae Ver asses Stone 
2E 13 B BEQL 46s 6$ : 
—E 8 D DECW  SCAN_DSC : 
04 =A p F INCL SCAN-DSC 4 : 
20 CMPB GHA - #32 : 
1 BEQL 5 : 
09 9 CMPB Ss CHAR, #9 : 
j ye A BNEQ 4$ : 
50 3 C 3$ MOVZWL (RG) RO : 
f O3F ADDL2  (R7). RO : 
60 0 04 MOVE #32, (RO) ; 
E DD 0004 PUSHL SP : 
0000v CF o1 Fe 0 4? CALLS fl. DCLDIETSSKIP_WHITESPACE ; 
50 66 3 OO4E 4$ MOVZWL (RG), RO : 
50 67 C 909 ADDL2  (R7); RO : 
60 52 90 00054 MOVB CHAR, (RO) : 
66 B86 00057 S$ INCW (R6) : 
co 11 0049 BRB 2$ ; 
22 3¢ 91 00058 6$ CMPB CHAR, #34 : 
12 0005 BNEQ $ : 
50 66 3C 0006 MOVZWL (R6), RO ; 
50 67 ¢6 0006 ADDL ¢ (R7), RO ; 
60 04 BE 6E 00066 MOVC3 SCAN.DSC, @SCAN_DSC+4, (RO) : 
66 6— AO 00068 ADDW2  SCAN“DSC. (R6) ; 
50 66 3C 0006E MOVZWL (R6)> RO ; 
50 67 CO 00071 ADDL2  (R7). RO ; 
04 AE FF AO SE 00074 MOVAB -1(RO), SCAN_DSC+4 : 
6 04 AE 01 00079 7S: CMPL CAN_DSC+4, TR7) : 
18 1F 0007D BLSSU 9S ; 
22 04 BE 91 0007F CMP @SCAN_DSC+4, #34 : 
12 13 00083 BEQL ; 
21 04 BE 91 00085 CMPB = @SCAN_DSC +4, #33 : 
07 if 00089 BNEQ ; 
66 04 AE 6? A 00088 SUBW3  (R7), SCAN_DSC+4, (R6) ; 
05 11 000 BRB 9$ : 
04 AE D7 9009¢ 8$: DECL § SCAN_DSC+4 : 
E2 11 0009 BRB 7 ; 
50 66 3C 00097 9S: MOV ZWL (RG), RO : 
50 67 CO 009A ADDL2  (R7). RO ; 
06 A FF AO 9 00 MOVAB -1(RO), SCAN_DSC+4 ; 
6 04 AE D1 OOOA2 10$: CMPL SCAN_DSC#4, TR7) : 
13 s«1F 0 BLSSU 128 ; 
20 04 BE 9 CMPB = @SCAN_DSC+4, #32 F 
06 1 OAC BEQL : 
09 04 BE 9 A CMPB asCAN_DSC+4, rT) : 
it 08 BNEQ 12$ : 
66 B 11$ DECW (RO) F 
04 A D7 90 DECL  SCAN_DSC+4 : 
E? 11 0008 BRB 10$ : 
04 000BB 12$: =RET : 


; Routine Size: 188 bytes, Routine Base: S$CODES + 033E 


Put a DCL Procedure on 9 diet 16-Sep-1984 99:18:33 The Om 32 V4.0-742 Page A 


pote 
mn 


oeL ore DCLDIET - 

V04=- DCLDIETSSKIP_WHITESPACE = Skip Whitespace in a ep-1 UTIL52.SRCIJDCLOIET.832;1 
; 1 1 } Rsbttl *DCLDIETSSKIP_WHITESPACE = Skip Whitespace in a Line’ 

3 : Ni 1 ! Functional Description: 

3 4 18 1! This procedure is called to skip past the whitespace in a Line. 

: 5 238 ! Whitespace is any sequence of blanks or tabs. 

: $ 2 1 1 ! Formal Parameters: 

3 8 § 1} Line_dsc Descriptor of Line. Initial whitespace is skipped 
: 2 : : } by updating descriptor. 

3 33) 0525 1 ! Returned Value: 

eS fc 

$ 4 0528 1 ! Notes 

$ 3a2 0529 1! 

; 536 0530 1 !-- 

3 Sor 0531 1 

; 3 05 § 1 

; 539 05 1 GLOBAL ROUTINE dcldiet$skip_whitespace(line_dsc: ref descriptor) 

; 540 0534 : novalue = BEGIN 
; 541 0535 

3 en6 0536 

; 54 0537 while .line_dscClen] gtru_0 and 

> 544 0538 (ch$rchar(.line_dscCptrJ) eqlu '_* or ch$rchar(.line_dscCptrJ) eqlu HT) do ( 
> 545 0539 decrement (lLine_dscLllen]); 

; 546 0540 increment(Line_dsc(ptrJ); 

3: 547 0541 3 

; 548 B246 

; 549 054 return; 

; 550 0544 1 H 


0000 00000 sENTRY DCLDIETSSKIP_WHITESPACE, Save nothing ; 0533 

50 04 AC 00 00002 MOVL LINE_DSC, RO ; 0537 
$9 8 0006 1$ TSTW (RO) : 
13 13 00008 BEQL 3$ ; 

20 04 BO 91 QOO0A CMPB @4(RO), #32 ; 0538 
06 13 t'4 BEQL 2$ : 
09 04 60 91 id CMPB a4(RO), #9 : 
07 1s 0014 BNEQ 3$ ; 

60 B 3 18 2$ DECW (RO) ; 9378 

04 AO 96 1 INCL 4(RO) : 0540 

E9 11 00018 BRB 1$ ; 0537 

04 00010 3$ RET ; 0544 


; Routine Size: 30 bytes, Routine Base: S$CODES + O3FA 


; 22! 0545 1 
3 320 0546 0 END ELUDOM 


N 7 
Skip whitespace in a incsep-19ee 19:28:20 EOraLS2°seeSoecolet asses aed vos 


sEXTRN LIBSSIGNAL 


voo=060 


PSECT SUMMARY 
Name Bytes Attributes 


SOWNS ae NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

SCODES 1048 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 52 
Pay Ona kenya a ee ee Symbols -------- Pages Processing ie: 
: File Total Loaded Percent Mapped Time 2 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 61 0 581 00:01.1 99 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:DCLDIET/OBJ=OBJ$:DCLDIET MSRC$:DCLDIET/UPDATE=(ENH$:DCLDIET) 


; grees 1048 B code, + 3360 data bytes 


3; Elapsed Time: 09: 46.5 
3 Lines/CPU Min: 137 

3; Lexemes/CPU-Min: 32610 

: eee | Used: 183 pages 
3 a 


; Compilation Complete 


